Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Dim αм As HPageBreak

    Cells.FormatConditions.Delete

    For Each αм In ActiveSheet.HPageBreaks

        Call ׵θ(αм.Location.Offset(-1).Columns("A:I"), xlBottom)
        Call ׵θ(αм.Location.Columns("A:I"), xlTop)

    Next
    
End Sub
